-- background: 38941 from stack: in
-- bmap block id: 20785
-- flags: 0000
-- background id: 0
-- name: 


-- part 1 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=121 top=97 right=115 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LPs


-- part 2 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=121 top=121 right=139 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: F5s


-- part 3 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=121 top=145 right=163 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CDs


-- part 4 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=127 top=228 right=280 bottom=190
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Count
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  put 0 into LPcount
  put 0 into F5count
  put 0 into CDcount
  put 0 into CScount
  set cursor to 4
  repeat with x = 2 to number of cards
    put "Processing card" && x
    go to next card
    get first word of field "Medium"
    if it is "LP" then add 1 to LPcount
    else if it is "45" then add 1 to F5count
    else if it is "CD" then add 1 to CDcount
    else add 1 to CScount
  end repeat
  go to first card
  put LPcount into field LPs
  put F5count into field F5s
  put CDcount into field CDs
  put CScount into field Cas
  put LPcount + F5count + CDcount + CScount into field "Total"
  set lockscreen to false
  hide message
end mouseUp



-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=121 top=169 right=187 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cas


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=477 top=308 right=335 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=310 right=334 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go to next card
end mouseUp



-- part 10 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=121 top=193 right=211 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Total


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=12 top=290 right=335 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go Home
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=61 top=290 right=335 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  hide card field "About"
end mouseUp

on mouseDown
  show card field "About"
end mouseDown